(diary-persian-date): Use `date'.

Add  some additional text at the end.

diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 89269526be8bb7c040c9f339990b02b3575a2809..99022af061ceb01593044e6cd586f27a3ff9c2f3 100644 (file)
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -199,7 +199,7 @@ Echo Persian date unless NOECHO is t."
 
 (defun diary-persian-date ()
   "Persian calendar equivalent of date diary entry."
- (calendar-persian-date-string (calendar-cursor-to-date t)))
+  (format "Persian date: %s" (calendar-persian-date-string date)))
 
 (provide 'cal-persia)